perm filename ZTYI[OLD,LSP] blob sn#291932 filedate 1978-12-10 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(DEFUN ZTYI NIL
C00003 ENDMK
CāŠ—;
(DEFUN ZTYI NIL
    ((LAMBDA (CHAR)
	(AND (= CHAR -1)
	     (SETQ TOPFN (CADR DATA))	;SET UP NAME OF LOSING LAP FUNCTION
	     (DBARF NIL |EOF IN MIDDLE OF LAP CODE - /
		CHECK FOR MISBALANCED PARENS|))
	CHAR)
      (TYI -1)))